home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __adventureland__ / __adventure_helpers__ / gurps__3rd_edition / card_22879.txt < prev    next >
Text File  |  1991-01-08  |  3KB  |  109 lines
  1. -- card: 22879 from stack: in
  2. -- bmap block id: 23881
  3. -- flags: 4000
  4. -- background id: 4234
  5. -- name: Charisma
  6. ----- HyperTalk script -----
  7. on openCard
  8.   push recent card
  9. end OpenCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 10 (field)
  15. -- low flags: 01
  16. -- high flags: 0000
  17. -- rect: left=15 top=57 right=294 bottom=499
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: 
  26.  
  27.  
  28. -- part 9 (button)
  29. -- low flags: 00
  30. -- high flags: A003
  31. -- rect: left=205 top=307 right=329 bottom=305
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Cancel
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual effect iris close
  43.   go to card "Advantage Card"
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 11 (field)
  49. -- low flags: 01
  50. -- high flags: 0000
  51. -- rect: left=162 top=31 right=57 bottom=410
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 2
  56. -- text size: 18
  57. -- style flags: 256
  58. -- line height: 24
  59. -- part name: 
  60.  
  61.  
  62. -- part 12 (button)
  63. -- low flags: 00
  64. -- high flags: A003
  65. -- rect: left=158 top=284 right=304 bottom=345
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Charisma
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global disadv,disadvp,points,killed
  77.   put "Charisma, +" into disadv
  78.   put "Charisma" into AT
  79.   put -5 into disadvp
  80.   put AExclusive(AT) into result
  81.   if (result is empty) then
  82.     exit MouseUp
  83.   end if
  84.   Ask "How great a bonus? (Do not type the +)" with 1
  85.   set the cursor to 4
  86.   if (it<>empty) then
  87.     put disadvp*it into disadvp
  88.     put disadv&it into disadv
  89.     put ANextSpace(i) into b
  90.     put disadv into line b of field "Advantages" of card "Work"
  91.     put (0-disadvp) into line b of field "APoints" of card "Work"
  92.     put points-disadvp into points
  93.     put points into field "Points" of card "Work"
  94.   end if
  95.   visual effect iris close
  96.   pop card
  97. end mouseUp
  98.  
  99.  
  100.  
  101.  
  102.  
  103. -- part contents for card part 11
  104. ----- text -----
  105.   Charisma
  106.  
  107. -- part contents for card part 10
  108. ----- text -----
  109.    This is the natural ability to impress and lead others.  Anyone can acquire a semblance of charisma by good looks, good manners, and intelligence - but real charisma works independently of these things, and you either have it or you don't.  It affects any reaction roll made by any intelligent creature.  Cost: 5 points for each +1 bonus.